(ns commonfact)

(defn
  factorial_range [bottom top]
  (loop [current top
         total 1]
    (if (> bottom current)
      total
      ; Rebound in parallel so new 'current' doesn't effect usage.
      (recur (dec current) (* current total))
     )
  )
)
